object MainForm: TMainForm Left = 1 Top = 1 AutoScroll = False Caption = 'Kplan' ClientHeight = 543 ClientWidth = 790 Color = 14602961 Constraints.MinWidth = 200 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Default' Font.Style = [] OldCreateOrder = True Position = poDefault ShowHint = True WindowState = wsMaximized OnClose = FormClose OnCreate = FormCreate OnDestroy = FormDestroy OnKeyUp = FormKeyUp OnShortCut = FormShortCut PixelsPerInch = 96 TextHeight = 13 object statusbar: TStatusBar Left = 0 Top = 469 Width = 790 Height = 24 BiDiMode = bdLeftToRight Color = 13285301 Panels = < item Alignment = taCenter Style = psOwnerDraw Text = 'M'#233'tag'#233'nia (www.metagenia.com)' Width = 600 end item Alignment = taCenter Style = psOwnerDraw Width = 70 end item Alignment = taRightJustify Style = psOwnerDraw Width = 160 end> ParentBiDiMode = False SizeGrip = False OnDrawPanel = statusbarDrawPanel OnResize = statusbarResize end object Panelbordure_gauche: TPanel Left = 0 Top = 22 Width = 3 Height = 447 Align = alLeft BevelOuter = bvNone ParentColor = True TabOrder = 1 end object TLB_menu: TToolBar Left = 0 Top = 0 Width = 790 Height = 22 AutoSize = True ButtonWidth = 83 Constraints.MinWidth = 200 EdgeBorders = [] EdgeOuter = esNone Flat = True Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Images = DM_metier.IL_commun Indent = 1 List = True ParentFont = False ParentShowHint = False ShowCaptions = True ShowHint = True TabOrder = 2 Wrapable = False OnCustomDraw = TLB_menuCustomDraw OnResize = TLB_menuResize object TLB_fichier: TToolButton Left = 1 Top = 0 AutoSize = True Caption = '&Fichier' Grouped = True MenuItem = File1 end object TLB_rapports: TToolButton Left = 43 Top = 0 Hint = 'Commandes relatives aux rapports' AutoSize = True Caption = '&Rapports' Grouped = True MenuItem = Menu_principal_Rapports1 end object TLB_outils: TToolButton Left = 97 Top = 0 Hint = 'Commandes relatives au fen'#234'tres' AutoSize = True Caption = '&Outils' Grouped = True MenuItem = Menu_principal_outils end object TLB_fenetres: TToolButton Left = 134 Top = 0 AutoSize = True Caption = 'F&en'#234'tres' Grouped = True MenuItem = Fentres1 Visible = False end object TLB_aide: TToolButton Left = 186 Top = 0 Hint = 'Menu aide' AutoSize = True Caption = '&?' Grouped = True MenuItem = Menu_principal_aide end object TLB_affichage: TToolButton Left = 203 Top = 0 AutoSize = True Caption = 'Affichage' MenuItem = Affichage1 Visible = False end object TB_separ: TPaintBox Left = 259 Top = 0 Width = 25 Height = 22 OnPaint = TB_separPaint end object Panel_cadre_de_vie: TPanel Left = 284 Top = 0 Width = 369 Height = 22 BevelOuter = bvNone ParentColor = True TabOrder = 0 inline Cadre_vie1: TCadre_vie Left = 0 Top = 0 Width = 369 Height = 22 Align = alClient AutoScroll = False Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 inherited PM_3vies: TPopupMenu Left = 112 end end end object TB_separ2: TPaintBox Left = 653 Top = 0 Width = 24 Height = 22 OnPaint = TB_separPaint end object TLB_poubelle: TToolButton Left = 677 Top = 0 Cursor = crHandPoint Action = DM_metier.Act_vider_poubelle AutoSize = True DropdownMenu = PM_poubelle Style = tbsDropDown end object TLB_enregistrer: TToolButton Left = 762 Top = 0 Cursor = crHandPoint Action = DM_metier.Act_enregistrer AutoSize = True Grouped = True end object TLB_rapideo: TToolButton Left = 843 Top = 0 Cursor = crHandPoint AutoSize = True Caption = '&Vite !!!' DropdownMenu = PM_rapideo ImageIndex = 46 Style = tbsDropDown Visible = False end object TLB_separ: TToolButton Left = 917 Top = 0 Width = 8 ImageIndex = 38 Style = tbsSeparator end object TLB_commande: TToolButton Left = 925 Top = 0 Cursor = crHandPoint Action = DM_metier.Act_commande AutoSize = True Grouped = True ParentShowHint = False ShowHint = True end end object PC_mode_normal_diaporama: TPageControl_MTG Left = 3 Top = 22 Width = 787 Height = 447 ActivePage = TS_KPLAN Align = alClient TabOrder = 3 bordure = False object TS_KPLAN: TTabSheet Caption = 'TS_KPLAN' object PC_kplan: TPageControl_MTG Left = 0 Top = 32 Width = 787 Height = 397 Hint = ' ' ActivePage = TS_documents Align = alClient Images = DM_metier.ImageList_onglet TabHeight = 28 TabOrder = 0 TabWidth = 170 bordure = False object TS_vue_generale: TTabSheet Caption = 'Calendrier' ImageIndex = 5 object Panel_bureau: TPanel Left = 0 Top = 0 Width = 911 Height = 454 Align = alClient BevelOuter = bvNone BorderWidth = 3 Color = clWhite TabOrder = 0 object VSplitter_left: TSplitter Left = 3 Top = 3 Height = 448 AutoSnap = False Visible = False end object VSplitter_right: TSplitter Left = 905 Top = 3 Height = 448 Align = alRight AutoSnap = False Visible = False end object DockPanelLeft: TPanel Left = 6 Top = 3 Width = 0 Height = 448 Align = alLeft DockSite = True TabOrder = 0 OnDockDrop = DockPanelLeftDockDrop OnDockOver = DockPanelLeftDockOver OnGetSiteInfo = DockPanelLeftGetSiteInfo OnUnDock = DockPanelLeftUnDock end object dockPanelright: TPanel Left = 908 Top = 3 Width = 0 Height = 448 Align = alRight DockSite = True TabOrder = 1 OnDockDrop = DockPanelLeftDockDrop OnDockOver = DockPanelLeftDockOver OnGetSiteInfo = DockPanelLeftGetSiteInfo OnUnDock = DockPanelLeftUnDock end end end object TS_notes_et_activites: TTabSheet Caption = 'Notes & Activit'#233's ' object Panel_activites_et_notes: TPanel Left = 0 Top = 0 Width = 737 Height = 454 Align = alClient BevelOuter = bvNone BorderWidth = 3 Color = clSilver TabOrder = 0 end end object TS_contacts: TTabSheet Caption = 'Contacts ' ImageIndex = 1 object Panel_contact: TPanel Left = 0 Top = 0 Width = 737 Height = 454 Align = alClient BevelOuter = bvNone BorderWidth = 3 Color = 11522486 TabOrder = 0 end end object TS_documents: TTabSheet Caption = 'Documents ' ImageIndex = 2 object Panel_document: TPanel Left = 0 Top = 0 Width = 787 Height = 369 Align = alClient BevelOuter = bvNone BorderWidth = 3 Color = 14335928 TabOrder = 0 end end object TS_ressources: TTabSheet Caption = 'Ressources ' ImageIndex = 3 object Panel_ressource: TPanel Left = 0 Top = 0 Width = 737 Height = 454 Align = alClient BevelOuter = bvNone BorderWidth = 3 Color = 12045019 TabOrder = 0 end end end object Panel_haut_Page_Control: TPanel Left = 0 Top = 0 Width = 787 Height = 32 Align = alTop BevelOuter = bvNone BiDiMode = bdLeftToRight ParentBiDiMode = False ParentColor = True TabOrder = 1 Visible = False object ToolBar1: TToolBar Left = 638 Top = 0 Width = 149 Align = alRight BorderWidth = 1 ButtonWidth = 102 Caption = 'ToolBar1' EdgeBorders = [] Flat = True Images = DM_metier.IL_commun List = True ShowCaptions = True TabOrder = 0 object TLB_tools: TToolButton Left = 0 Top = 0 Cursor = crHandPoint Action = DM_metier.Act_calculatrice_temporelle AutoSize = True DropdownMenu = PM_calculeo Grouped = True PopupMenu = PM_calculeo Style = tbsDropDown end end end end object TS_diaporama: TTabSheet Caption = 'TS_diaporama' ImageIndex = 1 end end object Panel_pour_cadre_pub: TPanel Left = 0 Top = 493 Width = 790 Height = 50 Align = alBottom BevelOuter = bvNone ParentColor = True TabOrder = 5 Visible = False end object Timer1: TTimer Interval = 10000 OnTimer = Timer1Timer Left = 104 Top = 104 end object ImageList_menu: TImageList Left = 71 Top = 106 end object PM_calculeo: TPopupMenu OwnerDraw = True Left = 491 Top = 51 object rt1: TMenuItem Action = DM_metier.Act_calculatrice_temporelle OnAdvancedDrawItem = MainMenuAdvancedDrawItem OnMeasureItem = MainmenuMeasureItem end object Calculatrice2: TMenuItem Action = DM_metier.Act_calculatrice_windows OnAdvancedDrawItem = MainMenuAdvancedDrawItem OnMeasureItem = MainmenuMeasureItem end object abledecaractres1: TMenuItem Action = DM_metier.Act_charmap OnAdvancedDrawItem = MainMenuAdvancedDrawItem OnMeasureItem = MainmenuMeasureItem end object Tarifolatrice1: TMenuItem Caption = 'Tarifolatrice...' Visible = False end object Fricaculateur1: TMenuItem Caption = 'Fricaculateur...' Visible = False end end object PM_rapideo: TPopupMenu Left = 407 Top = 56 object Appeltlphonique1: TMenuItem Caption = 'Appel t'#233'l'#233'phonique' end object Rendezvous1: TMenuItem Caption = 'Rendez-vous' end object Avoi1: TMenuItem Caption = 'A voir' end object Afaire1: TMenuItem Caption = 'A faire' end object Astuces1: TMenuItem Caption = 'Astuces' end object N10: TMenuItem Caption = '-' end object Dictionnaire1: TMenuItem Caption = 'Dictionnaire' end object FAQ1: TMenuItem Caption = 'F.A.Q' end end object ActionList1: TActionList Images = DM_metier.IL_commun Left = 214 Top = 124 object Act_fenetre_donnees: TAction Caption = 'Base d'#39'objets structur'#233's...' OnExecute = Act_fenetre_donneesExecute OnUpdate = Act_fenetre_donneesUpdate end object Act_constructeur_de_requete: TAction Caption = 'Constructeur de Requ'#234'tes...' OnExecute = Act_constructeur_de_requeteExecute OnUpdate = Act_constructeur_de_requeteUpdate end object Act_constructeur_de_modele: TAction Caption = 'Constructeur de Mod'#232'les...' OnExecute = Act_constructeur_de_modeleExecute OnUpdate = Act_constructeur_de_modeleUpdate end object Act_assistant_klibre: TAction Caption = 'Assistant "Gestion de la dur'#233'e des activit'#233's"...' OnExecute = Act_assistant_klibreExecute OnUpdate = Act_assistant_klibreUpdate end object Act_licence: TAction Caption = 'Licence de Kplan...' Hint = 'Licence...|Texte de la licence de Kplan...' ImageIndex = 6 OnExecute = Act_licenceExecute OnUpdate = Act_licenceUpdate end object Act_a_propos: TAction Caption = 'A propos...' Hint = 'A propos...|Fen'#234'tre '#224' propos...' OnExecute = Act_a_proposExecute end object Act_acheter_kplan_plus: TAction Caption = 'acheter Kplan PLUS' Hint = 'Achat en ligne du logiciel Kplan PLUS' ImageIndex = 16 OnExecute = Act_acheter_kplan_plusExecute OnUpdate = Act_acheter_kplan_plusUpdate end object Act_kplan_perso: TAction Caption = 'Kplan PERSO' Hint = 'Informations sur le logiciel Kplan PERSO' ImageIndex = 16 OnExecute = Act_kplan_persoExecute OnUpdate = Act_kplan_persoUpdate end object Act_ouvrir_fichier: TAction Caption = 'Ouvrir Fichier...' Hint = 'Ouvrir...|Ouvrir un fichier' ImageIndex = 4 ShortCut = 16463 OnExecute = Act_ouvrir_fichierExecute OnUpdate = Act_ouvrir_fichierUpdate end object Act_kplan_plus: TAction Caption = 'Kplan PLUS' Hint = 'Informations sur le logiciel Kplan PLUS' ImageIndex = 16 OnExecute = Act_kplan_plusExecute OnUpdate = Act_kplan_plusUpdate end object Act_rafraichir: TAction Caption = 'Act_rafraichir' ShortCut = 116 OnExecute = Act_rafraichirExecute end object act_fermer: TAction Caption = 'Fermer' ImageIndex = 44 ShortCut = 16499 OnExecute = act_fermerExecute OnUpdate = act_fermerUpdate end object Act_voter_pour_kplan: TAction Caption = 'Votez pour %s...' ImageIndex = 16 OnExecute = Act_voter_pour_kplanExecute OnUpdate = Act_voter_pour_kplanUpdate end object Act_regles_de_gestion: TAction Caption = 'R'#232'gles de gestion...' OnExecute = Act_regles_de_gestionExecute OnUpdate = Act_regles_de_gestionUpdate end object Act_montrer_application: TAction Caption = 'Act_montrer_application' ImageIndex = 13 OnExecute = Act_montrer_applicationExecute OnUpdate = Act_montrer_applicationUpdate end object Act_cacher_application: TAction Caption = 'Act_cacher_application' ImageIndex = 12 OnExecute = Act_cacher_applicationExecute OnUpdate = Act_cacher_applicationUpdate end object Act_vente: TAction Caption = 'Act_vente' OnExecute = Act_venteExecute OnUpdate = Act_venteUpdate end object Act_mail_MTG: TAction Caption = 'Act_mail_MTG' OnExecute = Act_mail_MTGExecute OnUpdate = Act_mail_MTGUpdate end end object PiconeBarreTache1: TPiconeBarreTache MenuPop = PM_barre_tache ReduireSiFin = False CacherSiMinimize = True PetiteIconeVisible = True GrandeIconeVisible = True ApplicationCachee = False IntervalAnimation = 1000 Animation = True NumIconeImageList = 0 Hint = 'Kplan' GrandeIconBlink = False IntervalGrandeIconeBlink = 1000 OuvreSiClicGauche = True OuvreSiDblClick = False MenuSiClicDroit = True MenuSiClicGauche = False Left = 62 Top = 224 end object PM_barre_tache: TPopupMenu Images = DM_metier.IL_commun MenuAnimation = [maRightToLeft] OwnerDraw = True Left = 94 Top = 224 object A1: TMenuItem Action = Act_cacher_application OnAdvancedDrawItem = MainMenuAdvancedDrawItem OnMeasureItem = MainmenuMeasureItem end object B1: TMenuItem Action = Act_montrer_application OnAdvancedDrawItem = MainMenuAdvancedDrawItem OnMeasureItem = MainmenuMeasureItem end object Creer_tray_activites: TMenuItem Caption = 'Notes et Activit'#233's' OnAdvancedDrawItem = MainMenuAdvancedDrawItem OnMeasureItem = MainmenuMeasureItem end object Creer_tray_contacts: TMenuItem Caption = 'Contacts' OnAdvancedDrawItem = MainMenuAdvancedDrawItem OnMeasureItem = MainmenuMeasureItem end object Creer_tray_document: TMenuItem Caption = 'Documents' OnAdvancedDrawItem = MainMenuAdvancedDrawItem OnMeasureItem = MainmenuMeasureItem end object N17: TMenuItem Caption = '-' OnAdvancedDrawItem = MainMenuAdvancedDrawItem OnMeasureItem = MainmenuMeasureItem end object Chronodatrice1: TMenuItem Action = DM_metier.Act_calculatrice_temporelle OnAdvancedDrawItem = MainMenuAdvancedDrawItem OnMeasureItem = MainmenuMeasureItem end object N16: TMenuItem Caption = '-' OnAdvancedDrawItem = MainMenuAdvancedDrawItem OnMeasureItem = MainmenuMeasureItem end object Quitter1: TMenuItem Caption = 'Quitter' OnClick = Quitter1Click OnAdvancedDrawItem = MainMenuAdvancedDrawItem OnMeasureItem = MainmenuMeasureItem end end object MainMenu_kplan: TMainMenu Images = DM_metier.IL_commun Left = 40 Top = 104 object File1: TMenuItem Caption = '&Fichier' object Nouveau1: TMenuItem Caption = 'Nouveau' ImageIndex = 24 object Fichier1: TMenuItem Caption = 'Fichier...' Hint = 'Nouveau fichier|Cr'#233'er et ouvrir un nouveau fichier' ImageIndex = 30 OnClick = Fichier1Click end object N1: TMenuItem Caption = '-' Visible = False end object NotesetActivites1: TMenuItem Caption = 'Notes et Activites' Visible = False end object Contacts1: TMenuItem Caption = 'Contacts' Visible = False end object Documents1: TMenuItem Caption = 'Documents' Visible = False end end object N2: TMenuItem Caption = '-' Visible = False end object Ouvrir2: TMenuItem Action = Act_ouvrir_fichier end object Rouvrir1: TMenuItem Caption = 'R'#233'ouvrir' Enabled = False ImageIndex = 4 end object Fermer1: TMenuItem Action = act_fermer end object N7: TMenuItem Caption = '-' end object Enregistrer1: TMenuItem Action = DM_metier.Act_enregistrer end object Enregistrersous1: TMenuItem Action = DM_metier.Act_enregistrer_sous end object Regrouperetenregistrer1: TMenuItem Action = DM_metier.Act_relatif end object N9: TMenuItem Caption = '-' Visible = False end object Imprimer1: TMenuItem Caption = 'Im&primer' ImageIndex = 26 ShortCut = 16464 Visible = False end object N12: TMenuItem Caption = '-' Visible = False end object Importer1: TMenuItem Action = DM_metier.Act_importer_donnees end object Actexporterdonnees1: TMenuItem Action = DM_metier.Act_exporter_donnees end object Fusionner1: TMenuItem Action = DM_metier.Act_fusionner end object Extraction1: TMenuItem Action = DM_metier.Act_extraction end object N3: TMenuItem Caption = '-' Visible = False end object Quitterdfinitivement1: TMenuItem Action = DM_metier.Act_quitter_definitivement end end object Menu_principal_Rapports1: TMenuItem Caption = '&Rapports' Hint = 'Commandes relatives aux rapports' object MI_rapport_calendriers: TMenuItem Caption = 'Rapport "Calendriers"' Hint = 'Visualiser / Imprimer les calendriers' ImageIndex = 6 Visible = False object SSMI_calendrier_courant: TMenuItem Caption = 'calendrier courant' Visible = False end object SSMI_select_calendrier: TMenuItem Caption = 'select calendrier' ImageIndex = 6 end end object MI_gestion_notes_et_activites: TMenuItem Caption = 'Rapport "Notes et activit'#233's"' Hint = 'Visualiser / Imprimer toutes les activit'#233's' ImageIndex = 6 Visible = False object Actrapporttouslesnotes1: TMenuItem Caption = 'Impression d'#233'taill'#233'e...' Hint = 'Visualiser toutes les notes' ImageIndex = 6 ShortCut = 49230 end object ActRapportdtaill1: TMenuItem Caption = 'Impression simplifi'#233'e (1 note = 1 ligne)...' ImageIndex = 6 end object N4: TMenuItem Caption = '-' end object VisualiserImprimercalendrier1: TMenuItem Caption = 'Selection de Notes et activit'#233's...' ImageIndex = 6 Visible = False end end object MI_Gestion_des_contacts: TMenuItem Caption = 'Rapport "Contacts"' ImageIndex = 6 Visible = False object Rapportindividu1: TMenuItem Caption = 'Tous les individus' Hint = 'Visualiser toutes les individus' ImageIndex = 6 Visible = False end object Rapportsurlessocits1: TMenuItem Caption = 'Toutes les soci'#233't'#233's' Hint = 'Act_visu_rapport_societe' ImageIndex = 6 Visible = False end object Actvisurapportindividuprivate1: TMenuItem Caption = 'Act_visu_rapport_individus_detailles' ImageIndex = 6 end end object MI_gestion_Gestion_des_documents: TMenuItem Caption = 'Rapport "Documents"' ImageIndex = 6 Visible = False object Touslesdocuments1: TMenuItem Caption = 'TOUS les documents' ImageIndex = 6 Visible = False end object MI_facture: TMenuItem Caption = 'MI_facture' end end end object Menu_principal_outils: TMenuItem Caption = '&Outils' Hint = 'Commandes relatives au fen'#234'tres' object Optionsdenvironnement1: TMenuItem Action = DM_metier.Act_options end object c1: TMenuItem Action = Act_regles_de_gestion end object Statistiques1: TMenuItem Action = DM_metier.Act_statistiques end object Fonctionnalits1: TMenuItem Caption = 'Fonctionnalit'#233's' Visible = False object Changerlefonddelapplication1: TMenuItem Caption = 'Changer le fond de l'#39'application' Hint = 'Pour changer le fond ' end object AjoutSupprimerfond2: TMenuItem Caption = 'Ajout/Supprimer fond' Checked = True end end object Zoom1: TMenuItem Caption = 'Zoom Plein Ecran' ImageIndex = 23 Visible = False OnClick = Zoom1Click end object ModifierlemotdepasseAdministrateur1: TMenuItem Action = DM_metier.Act_modifier_password_admin end object N6: TMenuItem Caption = '-' end object Calculatrice1: TMenuItem Action = DM_metier.Act_calculatrice_temporelle end object Calculatrice3: TMenuItem Action = DM_metier.Act_calculatrice_windows end object abledecaractres2: TMenuItem Action = DM_metier.Act_charmap end object debugg: TMenuItem Caption = 'Act_test' Visible = False end object Acttest1: TMenuItem Caption = 'Act_debug' Visible = False end object Gestiondutemps1: TMenuItem Caption = 'Gestion du temps...' ImageIndex = 43 Visible = False end object WindowCascadeItem: TMenuItem Caption = '&Cascade' Hint = 'Cascade' Visible = False end object WindowTileItem: TMenuItem Caption = 'Mosa'#239'que &horizontale' Hint = 'Mosa'#239'que horizontale' Visible = False end object WindowTileItem2: TMenuItem Caption = 'Mosa'#239'que &verticale' Hint = 'Mosa'#239'que verticale' Visible = False end object WindowMinimizeItem: TMenuItem Caption = '&Tout r'#233'duire' Hint = 'Tout r'#233'duire' Visible = False end object WindowArrangeItem: TMenuItem Caption = 'Tout r'#233'&organiser' Hint = 'Tout r'#233'organiser' Visible = False end object N14: TMenuItem Caption = '-' end object Configurerlesoutils1: TMenuItem Action = DM_metier.Act_configurer_outils end object N15: TMenuItem Caption = '-' end end object Affichage1: TMenuItem Caption = 'Affichage' Visible = False end object Fentres1: TMenuItem Caption = 'F&en'#234'tres' Visible = False object ActmailMTG1: TMenuItem Action = Act_mail_MTG end object ConstructeurdeModles1: TMenuItem Action = Act_constructeur_de_modele end object ConstructeurdeRequtes1: TMenuItem Action = Act_constructeur_de_requete end object Fenetreinput1: TMenuItem Action = Act_fenetre_donnees end object AssistantGestiondeladuredesactivits1: TMenuItem Action = Act_assistant_klibre end object Gestiondeslieux1: TMenuItem Action = DM_metier.Act_gestion_des_lieux end object Actgestionworkflow1: TMenuItem Action = DM_metier.Act_gestion_workflow end end object Menu_principal_aide: TMenuItem Caption = '&?' Hint = 'Menu aide' object Aide1: TMenuItem Action = DM_metier.Act_aide_en_ligne end object N11: TMenuItem Caption = '-' end object Vossuggestions1: TMenuItem Action = DM_metier.Act_suggestions end object Actvoterpourkplan1: TMenuItem Action = Act_voter_pour_kplan end object SoumettreunBUG1: TMenuItem Action = DM_metier.Act_rapporter_BUG end object N13: TMenuItem Caption = '-' end object La1: TMenuItem Action = DM_metier.Act_page_du_produit Caption = 'Page sur le Web du produit' end object KplanPERSOgratuit1: TMenuItem Action = Act_kplan_perso end object KplanPLUSpayant1: TMenuItem Action = Act_kplan_plus end object acheterKplanPLUS1: TMenuItem Action = Act_acheter_kplan_plus end object N8: TMenuItem Caption = '-' end object LicenceNoto1: TMenuItem Action = Act_licence end object Apropos1: TMenuItem Action = Act_a_propos end end end object ApplicationEvents1: TApplicationEvents OnActionExecute = ApplicationEvents1ActionExecute OnActivate = ApplicationEvents1Activate OnException = ApplicationEvents1Exception OnMessage = ApplicationEvents1Message OnRestore = ApplicationEvents1Restore OnSettingChange = ApplicationEvents1SettingChange Left = 518 Top = 168 end object PM_poubelle: TPopupMenu OwnerDraw = True Left = 382 Top = 136 object Viderpoubelledesactivits1: TMenuItem Action = DM_metier.Act_vider_poubelle_activites OnAdvancedDrawItem = MainMenuAdvancedDrawItem OnMeasureItem = MainmenuMeasureItem end object Viderpoubelledesactivits3: TMenuItem Action = DM_metier.Act_vider_poubelle_contacts OnAdvancedDrawItem = MainMenuAdvancedDrawItem OnMeasureItem = MainmenuMeasureItem end object Viderpoubelledesactivits2: TMenuItem Action = DM_metier.Act_vider_poubelle_documents OnAdvancedDrawItem = MainMenuAdvancedDrawItem OnMeasureItem = MainmenuMeasureItem end object Viderpoubelledesressources1: TMenuItem Action = DM_metier.Act_vider_poubelle_ressources OnAdvancedDrawItem = MainMenuAdvancedDrawItem OnMeasureItem = MainmenuMeasureItem end end end